My first 2 Scripting Games commentaries are online now

Feel free to check them out, even if you are not taking part in
the Games, and let me know what you think:

http://www.microsoft.com/technet/scriptcenter/funzone/games/ games08/experts.mspx

I have solutions for all 10 events, but I haven't written
all the write-ups yet. So any feedback on the style /content
would be welcome. Note that this is the Advanced Perl division,
so I assume readers are familiar with Perl and all the basic
concepts.

Cheers,
-Jan

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: My first 2 Scripting Games commentaries are online now

Hey Jan, now I know how you look...no guru-beard? I'm disappointed.

Jan Dubois wrote:
> Feel free to check them out, even if you are not taking part in
> the Games, and let me know what you think:
>
> http://www.microsoft.com/technet/scriptcenter/funzone/games/ games08/experts.mspx
>
> I have solutions for all 10 events, but I haven't written
> all the write-ups yet. So any feedback on the style /content
> would be welcome. Note that this is the Advanced Perl division,
> so I assume readers are familiar with Perl and all the basic
> concepts.
>
> Cheers,
> -Jan
>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: My first 2 Scripting Games commentaries are online now

One thing I like about Perl is that you don't have to use the
forward-slash '\' just because you're writing for the Windows platform.

Jan Dubois wrote:
> Feel free to check them out, even if you are not taking part in
> the Games, and let me know what you think:
>
> http://www.microsoft.com/technet/scriptcenter/funzone/games/ games08/experts.mspx
>
> I have solutions for all 10 events, but I haven't written
> all the write-ups yet. So any feedback on the style /content
> would be welcome. Note that this is the Advanced Perl division,
> so I assume readers are familiar with Perl and all the basic
> concepts.
>
> Cheers,
> -Jan
>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: My first 2 Scripting Games commentaries are online now

Foo JH wrote:
> One thing I like about Perl is that you don't have to use the
> forward-slash '\' just because you're writing for the Windows platform.

A) '\' is the backslash; '/' is the forward slash.

B) Actually, '/' works in all languages, and always has. It's just the
Command Prompt that won't accept it, for compatibility with pre-1983
versions of MS-DOS. (I swear I'm not joking!)

--
John W. Kennedy
"Sweet, was Christ crucified to create this chat?"
-- Charles Williams. "Judgement at Chelmsford"

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: My first 2 Scripting Games commentaries are online now

Yeah I seldom see smilies from Jan, so the fact that he's not (really)
smiling in the photo means my hunch is right: there's no free Coke in
ActiveState.

Where I work, we have more tea bags than we'd ever finish in the next 2
years. We just need more sugar cubes...

Chris Wagner wrote:
> Ooo there's a picture up there? I'm not going to go there now because I
> think it's better for his appearence to remain a mystery. :P
>
> At 09:37 AM 2/21/2008 +0800, Foo JH wrote:
>
>> Hey Jan, now I know how you look...no guru-beard? I'm disappointed.

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: My first 2 Scripting Games commentaries are online now

Had I known that you guys are commenting more on my picture than on
my sample code and commentary, then I would have spent more than the
5 minutes to find any old picture with a reasonable background and
crop just a head-shot out of it.

Or maybe I should have sent the picture that was for quite a while
on the ActiveState "people" page:

http://www.activestate.com/_images/photos/jand_w80_h125.jpg

Looks like the image is still there if you know where to find it,
even though the web page looks more corporate now. :)

And yes, no facial hair... Back in the days (December 1999) I was the
only developer at ActiveState without some kind of guru-beard (remember,
I'm an ex-banker), but over time I convinced some others (including the
gsar man) to come clean too. :)

Cheers,
-Jan

On Wed, 20 Feb 2008, Foo JH wrote:
> Yeah I seldom see smilies from Jan, so the fact that he's not (really)
> smiling in the photo means my hunch is right: there's no free Coke in
> ActiveState.
>
> Where I work, we have more tea bags than we'd ever finish in the next
> 2 years. We just need more sugar cubes...
>
> Chris Wagner wrote:
>> Ooo there's a picture up there? I'm not going to go there now because
>> I think it's better for his appearence to remain a mystery. :P
>>
>> At 09:37 AM 2/21/2008 +0800, Foo JH wrote:
>>
>>> Hey Jan, now I know how you look...no guru-beard? I'm disappointed.


_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: My first 2 Scripting Games commentaries are online now

This is a multipart message in MIME format.
--===============0403413531==
Content-Type: multipart/alternative;
boundary="=_alternative 004DE86D862573F6_="

This is a multipart message in MIME format.
--=_alternative 004DE86D862573F6_=
Content-Type: text/plain; charset="US-ASCII"

No wizard's-hat neither! Not even a magick wand. Jan, your image is
ruined... P-)

Deane Rothenmaier
Programmer/Analyst
Walgreens Corp.
847-914-5150

Put three grains of sand in a vast cathedral, and the cathedral will be
more closely packed with sand than space is with stars. -- Sir James Jeans



Foo JH
Sent by: perl-win32-users-bounces@listserv.ActiveState.com
02/20/2008 07:37 PM

To
Jan Dubois
cc
perl-win32-users@listserv.ActiveState.com,
activeperl@listserv.ActiveState.com
Subject
Re: My first 2 Scripting Games commentaries are online now






Hey Jan, now I know how you look...no guru-beard? I'm disappointed.

Jan Dubois wrote:
> Feel free to check them out, even if you are not taking part in
> the Games, and let me know what you think:
>
>
http://www.microsoft.com/technet/scriptcenter/funzone/games/ games08/experts.mspx

>
> I have solutions for all 10 events, but I haven't written
> all the write-ups yet. So any feedback on the style /content
> would be welcome. Note that this is the Advanced Perl division,
> so I assume readers are familiar with Perl and all the basic
> concepts.
>
> Cheers,
> -Jan
>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


--=_alternative 004DE86D862573F6_=
Content-Type: text/html; charset="US-ASCII"



No wizard's-hat neither! Not even a
magick wand. Jan, your image is ruined... P-)



Deane Rothenmaier

Programmer/Analyst

Walgreens Corp.

847-914-5150



Put three grains of sand in a vast cathedral, and the cathedral will be
more closely packed with sand than space is with stars. -- Sir James Jeans

RE: My first 2 Scripting Games commentaries are online now

On Wed, 20 Feb 2008, Jan Dubois wrote:

> Had I known that you guys are commenting more on my picture than on
> my sample code and commentary, then I would have spent more than the
> 5 minutes to find any old picture with a reasonable background and
> crop just a head-shot out of it.

:)

Concerning the code and commentary, these are wonderful
examples of how to take a (seemingly) simple problem, come
up with a solution, and then start to anticipate, and
handle, the various possibilities that might arise,
especially when dealing with user input. Hopefully there's
plans to find a more permanent home for them somewhere?

--
best regards,
Randy Kobes
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: My first 2 Scripting Games commentaries are online now

--===============0775150618==
Content-Type: multipart/alternative;
boundary="_23cd258a-8bf7-47fe-9388-55d2e6aea5a6_"

--_23cd258a-8bf7-47fe-9388-55d2e6aea5a6_
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable


Wow, you code looks much neeter than mine. I broke some rules but it works:
=20
#perl script to pull a word from a phone number Event1 2008 Microsoft Winte=
r Scripting Gamesprint "Please enter a phone number:";my $number =3D=
;my @words=3D();#build hash list of number to letters. NOT SURE WHAT TO DO =
ABOUT 1's AND 0's%numlet =3D ( 2 =3D> [ "A", "B" , "C" ], 3 =
=3D> [ "D", "E", "F" ], 4 =3D> [ "G", "H", "I" ], 5 =3D>=
[ "J", "K" , "L" ], 6 =3D> [ "M", "N" , "O"], 7 =3D> [ "P", =
"Q" , "R" , "S" ], 8 =3D> [ "T", "U" , "V"], 9 =3D> [ "W", "X=
" , "Y" , "Z"], );#open wordlistopen WORDS, 'wordlist.txt' or die "can=
't open wordlist.txt $!";while () {chomp;if (length ($_) ==7) { =
push (@words, $_); }}close WORDS; foreach (@{$numlet{(substr $number,0,-7)=
}}) { push (@1,$_)}
foreach (@{$numlet{(substr $number,1,-6)}}) { push (@2,$_)} foreach=
(@{$numlet{(substr $number,2,-5)}}) { push (@3,$_)} foreach (@{$numlet=
{(substr $number,3,-4)}}) { push (@4,$_)}
foreach (@{$numlet{(substr $number,4,-3)}}) {push (@5,$_)}
foreach (@{$numlet{(substr $number,5,-2)}}) { push (@6,$_)}
foreach (@{$numlet{(substr $number,6,-1)}}) { push (@7,$_)}
foreach $temp (@words) {#mad crazy regexif ($temp =3D~ /[$1[0]|$1[1]|$1[2]|=
$1[3]][$2[0]|$2[1]|$2[2]|$2[3]][$3[0]|$3[1]|$3[2]|$3[3]][$4[ 0]|$4[1]|$4[2]|=
$4[3]][$5[0]|$5[1]|$5[2]|$5[3]][$6[0]|$6[1]|$6[2]|$6[3]][$7[ 0]|$7[1]|$7[2]|=
$7[3]]/i) {print "$temp\n";last;}}
=20
=20
=20
Damon Dearman
=20
> Date: Thu, 21 Feb 2008 12:43:14 -0600> From: randy@theoryx5.uwinnipeg.ca>=
To: jand@activestate.com> Subject: RE: My first 2 Scripting Games commenta=
ries are online now> CC: wagnerc@plebeian.com; activeperl@listserv.ActiveSt=
ate.com; perl-win32-users@listserv.ActiveState.com> > On Wed, 20 Feb 2008, =
Jan Dubois wrote:> > > Had I known that you guys are commenting more on my =
picture than on> > my sample code and commentary, then I would have spent m=
ore than the> > 5 minutes to find any old picture with a reasonable backgro=
und and> > crop just a head-shot out of it.> > :)> > Concerning the code an=
d commentary, these are wonderful> examples of how to take a (seemingly) si=
mple problem, come> up with a solution, and then start to anticipate, and> =
handle, the various possibilities that might arise,> especially when dealin=
g with user input. Hopefully there's> plans to find a more permanent home f=
or them somewhere?> > -- > best regards,> Randy Kobes> ____________________=
___________________________> ActivePerl mailing list> ActivePerl@listserv.A=
ctiveState.com> To unsubscribe: http://listserv.ActiveState.com/mailman/mys=
ubs
____________________________________________________________ _____
Connect and share in new ways with Windows Live.
http://www.windowslive.com/share.html?ocid=3DTXT_TAGHM_Wave2 _sharelife_0120=
08=

--_23cd258a-8bf7-47fe-9388-55d2e6aea5a6_
Content-Type: text/html; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable






Wow, you code looks much neeter than mine. I broke some rule=
s but it works:

 

#perl script to pull a word from a phone number Event1 2008 Microsoft Winte=
r Scripting Games
print "Please enter a phone number:";
my $number =
=3D<STDIN>;
my @words=3D();
#build hash list of number to lette=
rs. NOT SURE WHAT TO DO ABOUT 1's AND 0's
%numlet =3D (
 2 =
       =3D> [ "A", "B" , "C" ],
 3=
           =3D> [ "D",=
"E", "F" ],
 4        &nbs=
p;  =3D> [ "G", "H", "I" ],
 5     =
;   =3D> [ "J", "K" , "L" ],
 6    =
;    =3D> [ "M", "N" , "O"],
 7   =
     =3D> [ "P", "Q" , "R" , "S" ],
 8 =
       =3D> [ "T", "U" , "V"],
 9&=
nbsp;       =3D> [ "W", "X" , "Y" , "Z"],<=
BR>      );
#open wordlist
open WORDS, 'word=
list.txt' or die "can't open wordlist.txt $!";
while (<WORDS>) { R>chomp;
if (length ($_) ==7) {
 push (@words, $_);
 =
;}
}
close WORDS;
 
foreach (@{$numlet{(substr $number,0,=
-7)}}) {
        push (@1,$_)}

foreach (@{$numlet{(substr $number,1,-6)}}) {
    &n=
bsp;  push (@2,$_)}  
foreach (@{$numlet{(substr $number=
,2,-5)}}) {
     push (@3,$_)} 
foreach (@{$=
numlet{(substr $number,3,-4)}}) {
   push (@4,$_)}

foreach (@{$numlet{(substr $number,4,-3)}}) {
push (@5,$_)}

foreach (@{$numlet{(substr $number,5,-2)}}) {
    &n=
bsp;    push (@6,$_)}

foreach (@{$numlet{(substr $number,6,-1)}}) {
    &n=
bsp; push (@7,$_)}

foreach $temp (@words) {
#mad crazy regex
if ($temp =3D~ /[$1[0]|$1[1=
]|$1[2]|$1[3]][$2[0]|$2[1]|$2[2]|$2[3]][$3[0]|$3[1]|$3[2]|$3 [3]][$4[0]|$4[1=
]|$4[2]|$4[3]][$5[0]|$5[1]|$5[2]|$5[3]][$6[0]|$6[1]|$6[2]|$6 [3]][$7[0]|$7[1=
]|$7[2]|$7[3]]/i) {
print "$temp\n";
last;
}
}

 

 

 

Damon Dearman

 



> Date: Thu, 21 Feb 2008 12:43:14 -0600
> From: randy@theo=
ryx5.uwinnipeg.ca
> To: jand@activestate.com
> Subject: RE: My =
first 2 Scripting Games commentaries are online now
> CC: wagnerc@ple=
beian.com; activeperl@listserv.ActiveState.com; perl-win32-users@listserv.A=
ctiveState.com
>
> On Wed, 20 Feb 2008, Jan Dubois wrote:
&=
gt;
> > Had I known that you guys are commenting more on my pictu=
re than on
> > my sample code and commentary, then I would have sp=
ent more than the
> > 5 minutes to find any old picture with a rea=
sonable background and
> > crop just a head-shot out of it.
>=
;
> :)
>
> Concerning the code and commentary, these ar=
e wonderful
> examples of how to take a (seemingly) simple problem, c=
ome
> up with a solution, and then start to anticipate, and
> h=
andle, the various possibilities that might arise,
> especially when =
dealing with user input. Hopefully there's
> plans to find a more per=
manent home for them somewhere?
>
> --
> best regards,<=
BR>> Randy Kobes
> _______________________________________________=

> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.co=
m
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs >

Re: My first 2 Scripting Games commentaries are online now

Here is what I came up with: comments?
#!/perl
use warnings;
use strict;
my @letters = ( "", "", "abc", "def", "ghi", "jkl", "mno", "prs", "tuv",
"wxy" );
my $reg;
print "Enter phone number: ";
my $number = <>;
chomp $number;
my @numbers = split(//,$number);
foreach my $n (@numbers){
$reg.="[".$letters[$n]."]";
}
open(INFILE," worldlist file\n";
while(){
chomp;
if(/^$reg$/io){
print "$_\n";
last;
}
}
close(INFILE);

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: threads and blessed objects...

I'm not spent more time on this same issue than I should, but you need
to know a few things about threading and Perl:
1. Threads::Queue takes in only scalars
2. If the scalar is a ref to an object instance, you need to share() it
first
3. share()ing is not deep, so you will have to ensure you're sharing the
entire object yourself (if the object is complex and nested).
4. Some objects are not advised to be passed in. Eg. DBI handlers. These
are not thread-safe and they will complain when another thread tries to
use it

The good news is I've only recently hit this problem (earlier this
week), and I managed to pass references to shared (simple) hashes into
the queue. So you know the solution will work.

Wayne Simmons wrote:
> Hi all. I'm working on a serious perl threaded project, and I'm trying to
> use Threads::Queue to pass data between my threads, and now it is telling me
> that I can't use them to pass objects (that is blessed scalars).
>
> Why is that? And what can I do about it?
>
> The exact error I get is:
> Thread 2 terminated abnormally: Invalid value for shared scalar at
> C:/Perl/lib/Thread/Queue.pm line 90.
>
> When I tried to share it, it just told me I couldn't assign the shared
> scalar to the object, so I got the same error but earlier.
>
> Any help, tips, advice is welcomed.
>
> -Wayne Simmons
>
>
>
> --
> Software Engineer
> InterSystems USA, Inc.
> 303-858-1000
>
>
>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Who"s got the guru beard?

This is a multi-part message in MIME format.
--------------000502060801060905010403
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Ok now we know Jan is a 'deviant'. It's piqued my interest, so I looked
up Randy as well....

At least one of us has the beard...

Jan Dubois wrote:
>
> And yes, no facial hair... Back in the days (December 1999) I was the
> only developer at ActiveState without some kind of guru-beard (remember,
> I'm an ex-banker), but over time I convinced some others (including the
> gsar man) to come clean too. :)


--------------000502060801060905010403
Content-Type: image/jpeg;
name="kobes-randy.jpg"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
filename="kobes-randy.jpg"

/9j/4AAQSkZJRgABAgAAZABkAAD/7AARRHVja3kAAQAEAAAAUAAA/+4ADkFk b2JlAGTAAAAA
Af/bAIQAAgICAgICAgICAgMCAgIDBAMCAgMEBQQEBAQEBQYFBQUFBQUGBgcH CAcHBgkJCgoJ
CQwMDAwMDAwMDAwMDAwMDAEDAwMFBAUJBgYJDQsJCw0PDg4ODg8PDAwMDAwP DwwMDAwMDA8M
DAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAWwBGAwERAAIRAQMR Af/EAJsAAAID
AQEBAAAAAAAAAAAAAAcIBQYJBAIDAQACAwEBAQAAAAAAAAAAAAADBAIFBgEA BxAAAQMCBQMC
BQIEBAcBAAAAAQIDBBEFACESEwYxFAdBIlFhMhUIgUJxUiMWYoIzJPCRobHR NDUXEQABBAED
AwIEBQQDAAAAAAABABECAwQhMRJBURMiBWGhMkLwcYEjFMHRMyThggb/2gAM AwEAAhEDEQA/
AO6NyW5xglVsg2ax6Or0aAytz9HJAeXU/wAcCZZ2uZ+3Ren+X8tloDLnKboW U10oRKcaT86J
aKUj4dMcUzZMBVq532Na467hyC+usRwQhCpEhxSlKV0SmpUST6ACuPcox3UY wnadEJr/AOYL
fEZDtqjicySUqcLm2qvT6TVQy+WK673KMSwV3R7DkWjUshwPyMmxpbbLNrtr qCopTHffWhxx
Nciiump9K4jH3B9WRrP/ADU4fe57Il2f8h+HyENJv7R4yt0/1HlKU+0hR+nW QkqSD6GhHzw5
TmQs0VZf7ZdSj9a5TU+GzMt7yZ0OUgOMy21BaFpUKhQIGYoa4PvslFdWo6kc ZdlPSSszro3H
hxia6URWVOPOD/M62nLEo7oo0io3T7aelMEUUPktvOpeLTDzjUdOp50IUtKB 195SCB+uOCQK
Aq9fb5C4/ETLmIdfLxBjRmEVUpKTpW6Scg2kkVPx+Jwvdd4Xl2TONh2ZMuME vF6u0zmk567O
xEMQYTStjvnDHhRs/qkue1TiimqtCT8jpFK56/NlafT1W4wPaqcWIMgCUOkH iEtq6yHrwq5Q
LSgF52LDWyqSomoEUoBCQPQBIFD7vjhUY0n5SOvRXIsADAKkQuQWG1PKXa/H Drgodd7mKYEp
JrqKgp9ToIoT0UjDIg4Yz/TVDlE78UOb7zSH3ae3af7YqUlcWTGTQDV1K2H3 a9RmE0r0w5j4
ragquyeL+oI7eCvNkvhM8W+VJN14TOksiRGLil9hrNFLbB9wAqKghOHK7TXp JZvOwARygGK1
CXNi3Cx8Sft8tmZb3IsqTHksLStC9+UpJNQT12wP0w/EdeipbQwDrnpWop0/ 84Io/aqcxMNt
gw7i1f2rM5a5a5i1Evam8kBt1KUIVrOkEEdaV9FYASwdQhHlIBKbzLk73JJt 1uDSVwmrjcpK
uO2htaSq3W5ZLqWfVLLetRXQAGvypilzrSXC2/s2NGPq+CHsyxyLjAt8B5Ed yEhaYtljPfQu
S7UqWuMsHWrUTpUumWaj0GEq6+ID7q8kQS/RHKzeDeYgx12iHbnERhspbnOD 2qUgFWgoKaJV
/KAfnliUxJHrlBlxX7wxebw4m1PW+cJMNokwmI6o6CU+1KUOKolSVergFafH AGlLbdFjZxLF
fHjX4ZcklqN85bGhQttWq32MvaoqQkFSTICAVuHMZagPj8MGhyhFid1CyUDL UIc+WPx3mcWi
tXqzxWhItiXX7m4w6jaLIOtaQ2dJJSM0gdOmCQvI3Sl+PCcdAiB4F8niE1x/ h3IXW0oe34vG
LiBpS7vKD6W3KZaqhRBxaYOVKwkHYLF+7+3eCIlHqU62g6tug3Oh+FcWvR1T cdGQe59ITYeL
Xy8aw39piKdcfI1pQDRNVD/Nha2XCLouHUJWxSpWC92uVb+LrjK0TL7LWJBd Vq2wyEuLSKEa
tS1AqAyNKAYociXKS3mLUYQCMcDjbt55JbTGbCrbAfSe5ca07ziMzJX0p6hI +GPcXDpiJEdH
T58XtiG58YJDYQ8kOOOAA1BFCUVGWQxF3ZTctoirDtFlEKVtW5synXCh91sA biBnqKgCTUnP
PDEeMo6BKkyfdV6W021GcU00KBWko9KE0pT/AA9MKSJPRN0E7nVAzyTEgz7Z Jb7VClhmQjQE
j3JKACCB069Tgc/SEZ1mXN4fcRZORM21TjM/i8jvbChLXUM0c0NkEEKyyof+ 2CUWShIN1Vb7
hVGyo/BOePKtsPhU+W0HVFFm7x1vP2y6hrQc613SBTrnjT8v21gWPPh8VVvP FofuHjLSgqgw
2Gwm6yXkhpaJT0kqcOh4hSjtaACEnL9cCyiOCYwa5eWISpovVktF94jaWJAU xY7YwhplKdSm
milS3V9ANxYVrJNDU/IYoLNZP0W5rBhEBMh448rcfmvR27jDuVztqJqpLbNr tk26SS0KtlTz
NuaecCdSepTpAAHrg0ASNFyyERJ06PA71N8nX66QvFkI8sk2iG6qU48h23sM 9utpD2oSENuK
KS+kBKUEkn/CqkacaVocbBTsyoUj1FRdl8oeWbrHB4Nxzi180TZVueVIuK0M OSIiwH2Y60pA
cU2V0KStJ6ZZ4kDKksNEv5a7PUzonS+VQlcVtvJ3YDL825BxH2+KvShU5KQH GjulOgpUnSdV
NJqDmMcPq16qZsjCPJ2CW6484vvJI0lxPDXYLrQeampYdZdQ2qmaVqSsgKp0 CtPx6YFOojWS
J5oAsZOlkW4hzi3MYxZkNXviPKFhSXklCwVx0OKjrbPuFWlKBH654nNmDIc5 uNNlTuPBpz8e
+e8MkPf7WNforkB3KpjrukNxY6fUKeg61xZRP+qe6ycoD+SApr8mbvy6XY7e oXS43SAhSg7E
kSHnW0LGYVVaij6fQ9MsFzB6GXPZLT5SGSj8b47IvUrlBufIYdruEazIubpf eCA82pelEdhf
UkEJTSvurQUArivnWIgdlsKiJkgl07v4wotvGYcxlvUi8KjsuOPnIuJUspyU Scm1AUpkfq6n
C0p9kWUW1Wg1vt85S7PcoN0cs7jiXI864l3ZQw4oa2nHXApKghQK0Ak0B6kF QwOo2P6ULKhW
YeoOobkVif43bo64d/hWVpIfTaIFtQ0smS+Dqdjx0EalKNVKI6nr8cGnyf1b odAiQwCHH2mZ
YeKxbzblsXrlHCLlD5D91nsMvJfnNTA7Kfca0lClUqTTM6etceBIkCE7OmPg MZDdRN+saX59
6vMJIts3mD673frzbNTffOOMkbhWCUgKCs0gUJzpXEbcgy+oaJCvHiNWWc9s vH2Ru/iRNcnX
eXIVdbmuQ44Ftr76UFNKBUoKUY7jYrSorp9Dj3LnIMvWGNcCUzsPx7NT4Guk DbS3fHGhK786
qLRvMTKjPUU6U0r1yri6GORXx7rHG79/kp/yhbJnKeJ22wqipKISFIUlTxbC 0LKioaNslSzq
6ldPgMEyKniyBg5PinyWW1u5RO4H5BavRbVsiE7AuEDWtey2HFsJa3KkpAUh JSomvx64AKvJ
S3Zami/jcJd063hG8tNzbNb1FtLsyOUw2G1FBDG4XCoJUaJSCMgDl+uKKWjh aSQeLrU7hvK7
eUpjd4Wd5e002ANbo2wrIDMpAqCDg+LOIJdLXD9tc3POS8K41Au1s7612F7s VNsFplpMhtiq
S8pamkgtoUkU0g5/DLHZ3B9ChQql9QSux/yJ4GnjL1kjcphM2fkUxEZ+R9tD MqEw6k7a1tl1
1RbUlVCQvJX1pBGI/wAiGyKa7pahGnktl4bEtsa7QUqbhPxS8xszpLcObuNp o47Gbc2VqKRW
pT6nrj3kgd1BtWWXXj/iaOUeWbq3JcjKDk2S5eYCEhRKQ+vbQtFAADlWg6UJ w5hVuXO3RUfv
l/jqAHdaRCMk2s20pSY4i9qlvPSGtva0V6005Yueiy3L7lSmbte6ONRLlKbQ +PdpeVmfnUmo
xNn0S05ElZp/kd40MHyVeZsKdHeul/ZalxbbHU20qi6B1JaSBpUDmEgCqSFD CMp+OZitXgf7
MIk7hc3jflEm0XSEuSVKV2+h1Qc1OhtvJICjX6+goelfTGdyq+LmPdbWg8wI yTicQ59c24N2
vcWa1Akxoa2bfOeSdtK6ISoNhRUSUpUB7fgT/BCEpsQ26PbGERxfRfS08Evn MLPcJomWwv3J
JUZVwlEXB5MkpJdJUnb16CQE1y1Z+mC04xMndCllQAYIecw/G/lNhbt8fja/ udtmw3UyZc5x
mGWULWVbSCNSnFFIGacs/q6YctxeGrqFeUADop1PNLrx7g7HHrwXDCtKCEDS pLZ0JSHUtkEh
aK1JoR7sIzMiAB3U6owJJZc34w8XbvM7lPkRag7ClzHLdCeY1JLpZUkqcK65 AH9vxNcaj22q
Yi8l899+u8lxjHYJ3AhW0fblSnQfHFoqZvSyF8yfbrDbZN8vcpu3W6KjclSn M6D0ATmVKNaB
IzOI8gUKAMpMFn5yyG75L8oS5nGLQ/em79cJMy29w2EqZDaUFD7mtR29CDUZ kilKemK+dogS
tTiUS8cYx3VLvfDOQcf5DJlvsJalWdwiXFrqcC6hSXAojUqoWg9a51pirnMS BiQtNQTBi+qs
1j5NIbsSIEx7+lNfKXGk6HEkahvLVUJ+OSadaEmmF5VAMmfPu6vhn8xeaenW K5GLaZDzejuU
NvbT4Kf9NVCdSNaKZGmVTiHBiuRPJRsef5AgtyYszlTl4CzsmTJU4lxlxZQl kJbIG1qDieuO
SPIsvMNyq1y+5XG0Wy02eTczILqH574aAfLKHkhZ1LQDSqiQRX06VwxXhgkJ eWYYAgdk6P4t
We2QfDlgftNyj3f7m7IuNzERxLvavSHVf0HgDVC0BICgof8ATGkr9IAXz/Kn ytlI9SmQS28o
uNhB1Ns76k1/Zka/8j0wZLLL+ZfuQeRWY3IOUXBuSlb77dtt0NKmYUNLSykJ aZJUQo/uUolR
+NKYRvkXWgw6oQiwC82iXO4nySzckgK1u26YzLaaUfatTahqay/a4kFBHzwt MOE9GXj1ATx+
RfG1t8mcTgeQOKLTIjXe0yDASywHJILik6tVEn3x9tTZBzSa/LFbOJBVnTYC HSBSOA3OxzDa
76y/a26hCZa2iEK2ykKW0CkgkZhQrStP0mC6NPuCifGtMSz8aCVPyJMdaW0T xpSpxlTqQ4HX
EoISmujMAEJp16YJ4XQoWsSD2UHzvmHG4rUGLYrgiZfIDEVE6VFWXI0kPI1u oK3QglaNBpQ0
Hxqcp+CMerqML5zgQdkGy6m4cltrz57OHc47shiCs0VuLV7ElGZ2qlZQSc/0 w3XWQAWVVkWi
ZIidQpi6SF8ctr3LoVwnca5PaUtobvNofVEkyXQ4G0MyCg0dSSNXuScgfTLD FXKUgAkb4Q4B
0R4/5k+U43FLhbHJdnk3W4xmobHOlwim5Rm2xQlDaEpiKdWElBU4wqnUUVQ4 bFE3bqlTCpgQ
dEH+FchXx6zLt94gSRHdlF3ukLbWhtRCUOa2kq11UQF1FepyxDIo5S9Oycps 4xc7osRnIV3j
JftslqdHNFFTKwtNaVoaZg19CMsVtkJAkEaJsWRntuiz4m/IO6+Dbxc7Py2H c+QeLLvDVOh2
q3FlUy3XPWN5+M28ttJQ4B/VbCxXJQFQaypoNoLDVR/kiBZ0zsd/xl5Y4vdr b445Hb73OuBQ
t60zUpiXeEhThklntZCNzSok0U2VCtTXCssSdZJZP15QI3QC5d4mEG53h+HN dYjNpfUmI4om
TuupO2ypNHNzUnTqT9IAA+eBGUjoxTAnFn0QOt3gdu3TJVw5g6mTZ7MsC/Sg 6RrQlIckigUk
r20H0SKnIVwxRiWTLpLI9xqh6InX+qAl6urnKOTcjv0AplSb5MC4SG9VY8Jp wpisR0BIGthl
CU0pQUqTXLGgqr4xAl0VDZJ3MTqV03+XLv8AbBan0pU5b1KclTWGlPsSFJSo tqSEn26cwetV
Z9MA4+CfIF3UjPlHid1RG7aDan1dynZCwNJZdCq1SRQeorU4alkteD3CEKY+ IhXW2V7KfX7H
p1KppppptZ0pnT/gYWn/AJB+P+Eb7Vz2nV3ju/3+jS3p7Kn8567Hur/HDuXt Hb8d0LH3lv8A
jsoWJt/d5GjbpsvV3tzf0+tdedPhTOtMWFD+HRv+rf1SEn8h3U03s6W93c2t +P8A+9vd9TUK
9rte/T/J66tNMJ5H0lOQf4/JaPcJ7jtW+6/uDV9vPa/3n2/9w7O6mle29tKd d7+p0rniuobl
9vzUsh+I+r9GZU38h6//AJ7fNvf0bUHc+203NG/7d7c92xqpr0+7VTV7K4sK t1TD/MPz/X+y
QTiu72V30b2nd/3Xb7W5TTlXXns1pu7WdKVyrj2VuPzCtYfUVAQ9O7cNzVXW adnq0f6v7tGV
P44FmN6dlOh2O/yXRG0f2/cv/qaNxnpr7f6/X92OTbyR2+fYqQfgd/kv/9k=
--------------000502060801060905010403
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--------------000502060801060905010403--

Where"s the next 2 script games commentries?

Looking forward to them...
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: threads and blessed objects...

Wayne Simmons wrote:
> Hi all. I'm working on a serious perl threaded project, and I'm trying to
> use Threads::Queue to pass data between my threads, and now it is telling me
> that I can't use them to pass objects (that is blessed scalars).
>
> Why is that?

Different interpreters (that is, different perl threads) only have access to
the memory tagged as "theirs". Everything that isn't passed as a value (e.g.,
references and objects) belongs to the interpreter it was created in.

> And what can I do about it?

The easy way to get around this is by using something like Storable on all of
your objects, and Thread::Queue::Any takes care of this for you.

http://search.cpan.org/dist/Thread-Queue-Any/

Storable has some limitations, so if you're doing anything particularly clever
you should read its documentation, but it works pretty well for most everyday
tasks.

--
Mike Gillis
Languages Development mikeg@activestate.com
ActiveState Software http://www.activestate.com/languages
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs